home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / CMDGeneral / DESOTO14.1.SDA / PATH .NAV (.txt) < prev    next >
Commodore BASIC  |  2019-04-13  |  503b  |  16 lines
  1. 2000 POKE43,PEEK(30983):POKE44,PEEK(30984):POKE45,PEEK(30985):POKE46,PEEK(30987)
  2. 2070 IFD5=0THEND5=D2
  3. 2072 OL=1:O1=1:ONFMGOTO2080,2185,2185
  4. 2080 R=5:C=29:GOSUB115:POKECH,C7:PRINT"  [208]ATH   ":POKECH,C1:FM=1
  5. 2083 I$=" ":GOTO2120
  6. 2115 GOTO2185
  7. 2120 FORT=0TO9:CP$(T)="":NEXT:A=1:FORT=0TOMS-1:IFPT$(T)=""THENNEXT:GOTO2123
  8. 2121 IFT=0THENIFMID$(PT$(0),3,3)="CMD"ORMID$(PT$(0),3,3)="RAM"THENNEXT:GOTO2123
  9. 2122 CP$(A)=PT$(T):A=A+1:NEXT
  10. 2123 CP$(A)="":A=0
  11. 2125 FORT=0TOMS-1:N$(T+1)=I$+PT$(T):TY$(T)="":NEXT:FS=T
  12. 2126 GOSUB515:GOSUB480:GOTO305
  13. 2185 GOSUB1185:R=5:C=29:GOSUB115:POKECH,C2:PRINT"  [208]ATH   ":POKECH,C1
  14. 2195 EX=0:D5=0:LL=0:O1=0:FM=0
  15. 2198 GOTO300
  16.